home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / powerd / lib / powerd_lib.lha / PowerD / ListCopy.ass < prev    next >
Encoding:
Text File  |  2000-02-26  |  283 b   |  22 lines
  1. ; a1 - dest
  2. ; a0 - src
  3. ; d0 - length
  4.  
  5.     xdef    _ListCopy
  6.  
  7. _ListCopy    move.l    a1,a2
  8.     cmp.w    #-1,d0
  9.     bne.s    .1
  10.     move.w    (-2,a0),d0
  11. .1    cmp.w    (-4,a1),d0
  12.     bmi.s    .2
  13.     move.w    (-4,a1),d0
  14. .2    cmp.w    #1,d0
  15.     bmi.s    .3
  16.     move.w    d0,(-2,a1)
  17.     subq.w    #1,d0
  18. .l    move.l    (a0)+,(a1)+
  19.     dbra    d0,.l
  20. .3    move.l    a2,d0
  21.     rts
  22.